home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Caml Light 0.7 / examples / calc / calc.ml next >
Encoding:
Text File  |  1995-06-18  |  207 b   |  10 lines  |  [TEXT/MPS ]
  1. try
  2.   let lexbuf = lexing__create_lexer_channel std_in in
  3.   while true do
  4.     let result = parser__Main lexer__Token lexbuf in
  5.       print_int result; print_newline(); flush std_out
  6.   done
  7. with _ ->
  8.   ()
  9. ;;
  10.